home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u1.d64 / title'page.proc < prev    next >
Text File  |  2007-02-28  |  1KB  |  48 lines
  1. 9000 // TITLE'PAGE("TITLE","YOUR NAME")
  2. 9010 PROC TITLE'PAGE(TITLE$,AUTHOR$) CLOSED
  3. 9020 DIM LINE$ OF 40, SPACES$ OF 40
  4. 9030 SPACES$(1:40):=""
  5. 9040 START:=(36-LEN(TITLE$)) DIV 2
  6. 9050 START1:=(34-LEN(AUTHOR$)) DIV 2
  7. 9060 //
  8. 9070 PENCOLOR 9
  9. 9080 BORDER 7
  10. 9090 BACKGROUND 7
  11. 9100 LINE$:="╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓╓"
  12. 9110 PRINT CHR$(147)
  13. 9120 PRINT 
  14. 9130 //
  15. 9140 FOR I:=1 TO 19 DO
  16. 9150 PRINT CHR$(145),TAB(20-I),LINE$(1:2*I)
  17. 9160 ENDFOR I
  18. 9170 PRINT "æ "
  19. 9180 //
  20. 9190 PRINT CHR$(145)
  21. 9200 FOR I:=1 TO 22 DO
  22. 9210 PRINT " ",CHR$(118),TAB(38),CHR$(118),
  23. 9220 PRINT 
  24. 9230 ENDFOR I
  25. 9240 //
  26. 9250 FOR I:=1 TO 18 DO
  27. 9260 PRINT " ",
  28. 9270 PRINT CHR$(145),
  29. 9280 PRINT LINE$(1:I),TAB(38-I),LINE$(1:I)
  30. 9290 ENDFOR I
  31. 9300 PRINT ""
  32. 9310 PRINT " ",CHR$(118),SPACES$(1:START),CHR$(18),"",TITLE$,"ò"
  33. 9320 PRINT " ",CHR$(118),SPACES$(1:START1),CHR$(18),"BY ",AUTHOR$
  34. 9330 //
  35. 9340 PRINT "É░└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└«"
  36. 9350 PRINT "▌ò COMMODORE 64 WEST USER GROUP É▌"
  37. 9360 PRINT "É▌ò COMAL SPECIAL INTEREST GROUP É▌"
  38. 9370 PRINT "▌ò   !! ÉWE TRADE PROGRAMSò  ò!!   É▌"
  39. 9380 PRINT "½└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└│"
  40. 9390 PRINT "▌ò     1307 COLORADO AVENUE     É▌"
  41. 9400 PRINT "▌ò   SANTA MONICA, CA, 90404    É▌"
  42. 9410 PRINT "¡└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└╜"
  43. 9420 PRINT "           PRESS A KEY Æ"
  44. 9430 //
  45. 9440 //
  46. 9450 WHILE KEY$=CHR$(0) DO NULL
  47. 9460 ENDPROC TITLE'PAGE
  48.